home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / Anwendun / LUNA152A / SCRIPTE / ASCUM1.LUS < prev    next >
Encoding:
Text File  |  1999-08-01  |  75 b   |  7 lines
  1. for i%=1 to 87
  2.     tput "a"
  3.     tput i%
  4.     tput ":    dc.b    '"
  5.     return()
  6. next i%
  7.